home *** CD-ROM | disk | FTP | other *** search
/ IRIX Installation Tools & Overlays 2002 November / SGI IRIX Installation Tools & Overlays 2002 November - Disc 4.iso / dist / insight_base.idb / usr / sbin / insightAdmin.z / insightAdmin
Text File  |  2002-10-15  |  19KB  |  773 lines
  1. #!/usr/bin/perl
  2. #
  3. # Copyright 2002, Silicon Graphics, Inc.
  4. # All Rights Reserved.
  5. #
  6. # This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon Graphics, Inc.;
  7. # the contents of this file may not be disclosed to third parties, copied or
  8. # duplicated in any form, in whole or in part, without the prior written
  9. # permission of Silicon Graphics, Inc.
  10. #
  11. # RESTRICTED RIGHTS LEGEND:
  12. # Use, duplication or disclosure by the Government is subject to restrictions
  13. # as set forth in subdivision (c)(1)(ii) of the Rights in Technical Data
  14. # and Computer Software clause at DFARS 252.227-7013, and/or in similar or
  15. # successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished -
  16. # rights reserved under the Copyright Laws of the United States.
  17. #
  18. # ----------------------
  19. # insightAdmin (Insight)
  20. # ----------------------
  21. # syntax:
  22. #
  23. #    insightAdmin [-c] [-d] [-v] [-h] [ <bookshelf> ]
  24. #    ex: insightAdmin /usr/share/Insight/library/SGI_bookshelves/SGI_EndUser
  25. #
  26.  
  27. $| = 1;
  28.  
  29. my($_VRS)     = 'v5.1';
  30. my(@_bkshlfs) = ();
  31. my($_lpth)    = '/usr/share/Insight/library/SGI_bookshelves';
  32. my($_url)     = 'http://techpubs.sgi.com/bkdl.cgi';
  33. my($_lang)    = 'C';
  34. my($_ebt2html)= '/usr/share/Insight/bin/ebt2html';
  35.  
  36. my($_verbose, $_correct, $_dl) = 0;
  37.  
  38. my(%_strs)    = (
  39.  
  40.   # shelf titles, etc
  41.  
  42.     'SGI_EndUser'   => 'End-User',
  43.     'SGI_Admin'     => 'Administrative',
  44.     'SGI_Developer' => 'Developer',
  45.     'SGI_Service'   => 'Service',
  46.     'Help'          => 'Application Help',
  47.     'ISV_Help'      => '3rd Party Application Help',
  48.  
  49.   # html 
  50.  
  51.     'html_ftr'      => "</p>\n</body></html>\n",
  52.  
  53.   # error/misc strings
  54.  
  55.     'err_inv_s'     => 'invalid bookshelf',
  56.     'err_inv_s_c'   => 'invalid bookshelf; cannot correct',
  57.     'err_no_s'      => 'no bookshelves found; cannot process default',
  58.     'pr'            => 'processing',
  59.     'add'           => 'adding',
  60.     'warn'          => 'WARNING',
  61.     'err'           => 'ERROR',
  62.     'old_form1'     => "appears to be in old/unreadable format\n\t\t\t  (see -c and -d options)\n",
  63.     'old_form2'     => '(old/unreadable format)',
  64.     'pdf_form'      => "is only available in PDF\n",
  65.     'pdf'           => 'PDF copy',
  66.     'dn'            => 'document number',
  67.     'dl'            => 'downloading',
  68.     'err_dl'        => 'ERROR downloading',
  69.     'cv'            => 'converting',
  70.     'err_cv'        => 'ERROR converting',
  71.     'err_wr'        => 'cannot write to',
  72.     'rt'            => 'return to',
  73.     'list_s'        => 'List of Bookshelves'
  74. );
  75.  
  76.  
  77. #----------------------
  78. # read in cmd-line args
  79. #
  80. while ((@ARGV + 0) > 0) {
  81.  
  82.      if ($ARGV[0] =~ /^\-/) {
  83.  
  84.          if ($ARGV[0] =~ /v/i) {
  85.              $_verbose = 1;       # (v)erbose mode
  86.          } 
  87.          if ($ARGV[0] =~ /h/i) {
  88.              &usage('');          # (h)elp/usage
  89.          }
  90.          if ($ARGV[0] =~ /c/i) {
  91.              $_correct = 1;       # (c)orrect old books
  92.          } 
  93.          if ($ARGV[0] =~ /d/i) {
  94.              $_dl = 1;            # use net to (d)ownload new format bks
  95.          }
  96.          if ($ARGV[0] =~ /n/i) {
  97.              shift(@ARGV);
  98.              $_lang = $ARGV[0];   # lang variable; not public
  99.          }
  100.  
  101.      } else {
  102.  
  103.          if (-d $ARGV[0] && -d "$ARGV[0]/books") {
  104.              push(@_bkshlfs, $ARGV[0]);
  105.          } else {
  106.              &usage("$_strs{'err_inv_s'} ($ARGV[0])");
  107.          }
  108.      }
  109.      shift(@ARGV);
  110. }
  111.  
  112. if ($_dl == 1) {
  113.    my($e_str) = $ENV{TPL_SERVER}; 
  114.    if ($e_str ne '') {
  115.        $_url =~ s/\/\/[^\/]+\//\/\/${e_str}\//;
  116.    }
  117. }
  118.  
  119.  
  120. #---------------------------------------------------------
  121. # set the proper locale for us to work in...
  122. #
  123. # LC_CTYPE   needed for uc{first}, lc{first}
  124. # LC_COLLATE needed for lt, le, cmp, ge, gt, strcoll, sort
  125. #
  126. use locale;
  127. use POSIX qw(locale_h);
  128. use POSIX qw(strcoll);
  129.  
  130. if ($_lang ne '') {
  131.  
  132.     if (!(setlocale(LC_CTYPE, $_lang))) {
  133.  
  134.           # on error, set to 'C'
  135.           #
  136.           $_lang = 'C'; 
  137.           setlocale(LC_CTYPE, $_lang);
  138.     }
  139.     setlocale(LC_COLLATE, $_lang);
  140. }
  141.  
  142.  
  143. #-----------------------------------------------------------
  144. # use a default...all bookshelves under default library path
  145. #
  146. if ((@_bkshlfs+0) == 0) {
  147.  
  148.    opendir(LDIR, "${_lpth}") || &usage("$_strs{'err_no_s'} (${_lpth}");
  149.    foreach (readdir(LDIR)) {
  150.  
  151.          if ($_ !~ /^\./ && -d "${_lpth}/${_}/books") {
  152.              push(@_bkshlfs, "${_lpth}/${_}");
  153.          }
  154.    }
  155.    closedir (LDIR);
  156.  
  157.    if ((@_bkshlfs+0) == 0) {
  158.       &usage("$_strs{'err_no_s'} (${_lpth}");
  159.    }
  160. }
  161.  
  162.  
  163. #-------------------
  164. # open html template
  165. #
  166. $_hdr = '';
  167. while(<DATA>) {
  168.       $_hdr .= $_;
  169. }
  170. close(DATA);
  171.  
  172.  
  173. #------------------------
  174. # process the bookshelves
  175. #
  176. foreach (@_bkshlfs) {
  177.  
  178.     if ($_verbose) {
  179.         print "\ninsightAdmin ($_VRS): $_strs{'pr'} ${_}\n\n";
  180.     }
  181.  
  182.     if ($_correct == 1) {
  183.         &correct_bookshelf($_);
  184.     }
  185.  
  186.     &update_bookshelf($_);
  187. }
  188.  
  189.  
  190. #------------------------------------
  191. # add a library-level index.html file
  192. #
  193. &add_lib_html($_bkshlfs[0]);
  194.  
  195.  
  196. exit(0);
  197.  
  198.  
  199.  
  200. #------------------------------------------------------------
  201. # update_bookshelf(string bkshlf)
  202. #
  203. #  create/write to booklist.txt and top-level index.html file
  204. #
  205. sub update_bookshelf {
  206.  
  207.    my($bkshlf) = @_;
  208.    if ($bkshlf eq '' || !(-d "$bkshlf")) {
  209.        &usage("$_strs{'err_inv_s'} (${bkshlf})");
  210.    }
  211.  
  212.    my($shlf_name) = ($bkshlf =~ m#/([^/]+)$#s);
  213.  
  214.    #-----------------------------------------------------
  215.    # prepare list of books to process/add to booklist.txt
  216.    #
  217.    my($s, $pth, $tmp, $bk, $dn, $btype, $ttl, $html, $pdf) = '';
  218.    my(%books) = ();
  219.  
  220.    opendir(BKDIR, "${bkshlf}/books") || 
  221.                                   &usage("$_strs{'err_inv_s'} (${bkshlf})");
  222.    foreach $s (readdir(BKDIR)) {
  223.  
  224.       if ($s =~ /^\./) {
  225.           next;
  226.       }
  227.  
  228.       $bk = $s;
  229.       ($dn, $ttl, $btype) = '';
  230.  
  231.       if ($_verbose) {
  232.           print "          $_strs{'add'} $bk...\n";
  233.       }
  234.  
  235.       #-----------------------------
  236.       # use existing booklist.txt...
  237.       #
  238.       if (-r "${bkshlf}/books/${s}/booklist.txt") {
  239.  
  240.           open(BKL, "${bkshlf}/books/${s}/booklist.txt");
  241.           $tmp = join('', <BKL>);
  242.           close(BKL);
  243.  
  244.           $tmp =~ s/<COLLECTION>\n//i;
  245.           $tmp =~ s/<\/COLLECTION>\n//i;
  246.           if( $tmp !~ /<\/BOOK>\n$/i ) {
  247.               $tmp .= "</BOOK>\n";
  248.           }
  249.           if( $tmp =~ /.*(\d\d\d-\d\d\d\d-\d\d\d[a-zA-Z]*).*/ ) {
  250.               $dn = $1;
  251.           }
  252.           if( $tmp =~ /ALIAS[\ \=]+\"([^\"]+)\"/i ) {
  253.               $ttl = $1;
  254.           }
  255.           if( $tmp =~ /GROUP[\ \=]+\"([^\"]+)\"/i ) {
  256.               $btype = $1;
  257.           }
  258.  
  259.       #-----------------
  260.       # ...or create one
  261.       #
  262.       } else {
  263.  
  264.           $dn = '';
  265.           if (-l "${bkshlf}/books/$s") {
  266.               $tmp = `ls -l ${bkshlf}/books/${s}`;
  267.               if ($tmp =~ /.*(\d\d\d-\d\d\d\d-\d\d\d[a-zA-Z]*).*/) {
  268.                   $dn = $1;
  269.               }
  270.           }
  271.           $ttl = $s;
  272.           $tmp = "<BOOK NAME=\"" . $s . "\" ALIAS=\"" . $s . "\"" .
  273.                  ($dn ne '' ? " SGIVERSION=\"${dn}\"" : '') .
  274.                  ">\n</BOOK>\n";
  275.       }
  276.  
  277.       if ($_verbose) {
  278.           if ($btype !~ /html/i &&  &check_book($bkshlf, $bk) == 0) {
  279.               print "                 ", $_strs{'warn'}, ": $bk ",
  280.                     (&check_pdf($bkshlf, $bk) == 1 ? 
  281.                                   $_strs{'pdf_form'} : $_strs{'old_form1'});
  282.           }
  283.       }
  284.  
  285.       ($pth, $pdf) = '';
  286.       if (-e "${bkshlf}/books/${bk}/sgi_html/index.html") {
  287.           $pth = "<a href=\"books/${bk}/sgi_html/index.html\">";
  288.       } elsif(-e "${bkshlf}/books/${bk}/index.html") {
  289.           $pth = "<a href=\"books/${bk}/index.html\">";
  290.       } elsif(-d "${bkshlf}/books/${bk}/sgi_html") {
  291.           $pth = "<a href=\"books/${bk}/sgi_html/\">";
  292.       } 
  293.       if (-e "${bkshlf}/books/${bk}/pdf/${bk}.pdf") {
  294.           $pdf = "<a href=\"books/${bk}/pdf/${bk}.pdf\">";
  295.       } elsif(-e "${bkshlf}/books/${bk}/${bk}.pdf") {
  296.           $pdf = "<a href=\"books/${bk}/${bk}.pdf\">";
  297.       }
  298.  
  299.       $html = "<li>${pth}<b>" . ($ttl ne '' ? "$ttl" : "$s") . "</b>";
  300.       if ($pth ne '') {
  301.           $html .= "</a>";
  302.       } elsif ($pdf eq '') {
  303.           $html .= "  <i>$_strs{'old_form2'}</i>";
  304.       }
  305.       if ($pdf ne '') {
  306.           $html .= "  ${pdf}$_strs{'pdf'}</a>";
  307.       }
  308.       $html .= ($dn ne '' ? "<br><i>($_strs{'dn'}: ${dn})</i>" : '') . 
  309.                "</li>\n";
  310.  
  311.  
  312.       $books{$s} = { 'title'    => $ttl,
  313.                      'booklist' => $tmp,
  314.              'html'     => $html
  315.                    };
  316.  
  317.       #------------------------
  318.       # clean-up 0-length files
  319.       #
  320.       &clean_bookdir("${bkshlf}/books/${bk}", "${bk}");
  321.    }
  322.  
  323.    closedir(BKDIR);
  324.  
  325.    #---------------------------------------------------------------
  326.    # sort the books by title and create booklist.txt and index.html
  327.    #
  328.    open(FP_BKLIST, "> ${bkshlf}/booklist.txt") || do {
  329.      &usage("$_strs{'err_wr'} ${bkshlf}/booklist.txt");
  330.    };
  331.    open(FP_BKHTML, "> ${bkshlf}/index.html") || do {
  332.      &usage("$_strs{'err_wr'} ${bkshlf}/index.html");
  333.    };
  334.  
  335.    print FP_BKLIST "<COLLECTION>\n";
  336.    print FP_BKHTML &do_html(($_strs{$shlf_name} ne '' ? 
  337.                              $_strs{$shlf_name} : ${shlf_name})),
  338.                    "<p>($_strs{'rt'} <a href=\"../index.html\">", 
  339.                    lc($_strs{'list_s'}), "</a>)</p>\n<p><ul>\n";
  340.  
  341.    foreach $book 
  342.      (sort { lc($books{$a}->{'title'}) cmp lc($books{$b}->{'title'}) } 
  343.                                                             (keys(%books))) {
  344.       print FP_BKLIST $books{$book}->{'booklist'};
  345.       print FP_BKHTML $books{$book}->{'html'};
  346.    }
  347.  
  348.    print FP_BKLIST "</COLLECTION>\n";
  349.    print FP_BKHTML "</ul>", $_strs{'html_ftr'};
  350.    close(FP_BKLIST);
  351.    close(FP_BKHTML);
  352. } 
  353.  
  354.  
  355.  
  356. #---------------------------------------------------
  357. # correct_bookshelf(string bkshlf)
  358. #
  359. #  check for old books, update to new format w/tools
  360. #
  361. sub correct_bookshelf {
  362.  
  363.    my($bkshlf) = @_;
  364.    if ($bkshlf eq '' || !(-d "$bkshlf")) {
  365.        &usage("$_strs{'err_inv_s_c'} (${bkshlf})");
  366.    }
  367.  
  368.    my($shlf_name) = ($bkshlf =~ m#/([^/]+)$#s);
  369.  
  370.    #------------
  371.    # check books
  372.    #
  373.    my($s, $tmp, $bk, $dn, $btype) = '';
  374.    my($ok) = 0;
  375.  
  376.    opendir(BKDIR, "${bkshlf}/books") || 
  377.                                    &usage("$_strs{'err_inv_s'} (${bkshlf})");
  378.    foreach $s (readdir(BKDIR)) {
  379.  
  380.       if ($s =~ /^\./) {
  381.           next;
  382.       }
  383.  
  384.       #--------------
  385.       # in new format
  386.       #
  387.       if (&check_book($bkshlf, $s) == 1) {
  388.           next;
  389.       }
  390.  
  391.       ($dn, $btype, $pth) = '';
  392.  
  393.       #-----------------------------------
  394.       # query booklist.txt for part number
  395.       #
  396.       if (-r "${bkshlf}/books/${s}/booklist.txt") {
  397.  
  398.           open(BKL, "${bkshlf}/books/${s}/booklist.txt");
  399.           $tmp = join('', <BKL>);
  400.           close(BKL);
  401.  
  402.           if ($tmp =~ /.*(\d\d\d-\d\d\d\d-\d\d\d[a-zA-Z]*).*/) {
  403.               $dn = $1;
  404.           }
  405.           if( $tmp =~ /GROUP[\ \=]+\"([^\"]+)\"/i ) {
  406.               $btype = $1;
  407.           }
  408.       }
  409.  
  410.       if ($btype =~ /html/i) {
  411.           next;  # ignore (old) HTML books
  412.       }
  413.  
  414.       if ($dn eq '') {
  415.           $dn = "${shlf_name}/${s}";
  416.       }
  417.  
  418.       #-------------------------------
  419.       # perform conversion or download
  420.       #
  421.       $ok = 0;
  422.       if ($_dl == 1) {
  423.  
  424.           if ($_verbose) {
  425.              print "          ",
  426.                    "$_strs{'dl'} ${shlf_name}/books/${s}...\n";
  427.           }
  428.           if (($ok = &download_book($bkshlf, $s, $dn)) == -1) {
  429.              print "            ",
  430.                    "$_strs{'err_dl'} ${shlf_name}/books/${s}\n";
  431.           }
  432.       }
  433.       
  434.       if ($ok <= 0) {
  435.  
  436.           #----------------------
  437.           # use filter conversion
  438.           #
  439.           if ($_verbose) {
  440.              print "          $_strs{'cv'} ${shlf_name}/books/${s}...\n";
  441.           }
  442.           if (($ok = &convert_book($bkshlf, $s)) == -1) {
  443.              print "          $_strs{'err_cv'} ${shlf_name}/books/${s}\n";
  444.           }
  445.       }
  446.    }
  447.  
  448.    closedir(BKDIR);
  449. }
  450.  
  451.  
  452.  
  453. #--------------------------------------------------------
  454. # download_book (string bkshlf, string bk, string docnum)
  455. #
  456. #  fetch a book from techpubs.sgi.com 
  457. #
  458. sub download_book {
  459.  
  460.    my($bkshlf, $bk, $dn) = @_;
  461.  
  462.    #---------------------------------------------
  463.    # geturl does a fetch, returns a temp filename
  464.    #
  465.    my($tmp) = `geturl '${_url}/${dn}'`;
  466.    if ($? || !(-r "${tmp}")) {
  467.        return -1;
  468.    }
  469.  
  470.    if (int((-s "${tmp}")) < 500) {
  471.        system("rm -f ${tmp}");
  472.        return -1;
  473.    }
  474.  
  475.    if (!(-d "${bkshlf}/books/.sgitmp")) {
  476.        if (!(mkdir("${bkshlf}/books/.sgitmp", 0755))) {
  477.            return -1;
  478.        }
  479.    } else {
  480.        system("rm -rf ${bkshlf}/books/.sgitmp/*");
  481.        if ($?) {
  482.            return -1;
  483.        }
  484.    }
  485.  
  486.    my($cmd) = "(mv -f ${tmp} ${tmp}.gz; ".
  487.               " gunzip -f -q ${tmp}.gz; " .
  488.               " cd ${bkshlf}/books/.sgitmp; " .
  489.               " tar -xf ${tmp}; " .
  490.               " rm -f ${tmp})";
  491.    system("$cmd");
  492.    if ($?) {
  493.        system("rm -rf ${bkshlf}/books/.sgitmp");
  494.        return -1;
  495.    }
  496.  
  497.    $tmp = `ls -1 ${bkshlf}/books/.sgitmp`;
  498.    $tmp =~ s/\n$//g;
  499.  
  500.    if (-d "${bkshlf}/books/.sgitmp/${tmp}") {
  501.  
  502.        $cmd = "(mv -f ${bkshlf}/books/${bk} ${bkshlf}/books/${bk}.O; " .
  503.               " mv -f ${bkshlf}/books/.sgitmp/${tmp} ${bkshlf}/books/${bk})";
  504.        system("$cmd");
  505.  
  506.        #--------------
  507.        # recovery step
  508.        #
  509.        if ($?) {
  510.  
  511.           if (-d "${bkshlf}/books/${bk}.O") {
  512.               $cmd = "(mv -f ${bkshlf}/books/${bk}.O ${bkshlf}/books/${bk}; " .
  513.                      " rm -rf ${bkshlf}/books/.sgitmp)";
  514.               system("$cmd");
  515.           }
  516.           return -1;
  517.        }
  518.  
  519.        if (-d "${bkshlf}/books/${bk}.O") {
  520.            system("rm -rf ${bkshlf}/books/${bk}.O");
  521.        }
  522.    }
  523.  
  524.    system("rm -rf ${bkshlf}/books/.sgitmp");
  525.    return 1;
  526. }
  527.  
  528.  
  529.  
  530. #---------------------------------------
  531. # convert_book(string bkshlf, string bk)
  532. #
  533. #  filter/convert book to new format
  534. #
  535. sub convert_book {
  536.  
  537.    my($bkshlf, $bk) = @_;
  538.  
  539.    if ($bkshlf eq '' || $bk eq '' || !(-d "${bkshlf}/books/${bk}")) {
  540.        return -1;
  541.    }
  542.  
  543.    my($cmd) = $_ebt2html . ($_verbose ? ' -v' : '') . " $bkshlf $bk";
  544.  
  545.    $result = system($cmd);
  546.  
  547.    return ($result);
  548. }
  549.  
  550.  
  551.  
  552. #--------------------------------------------
  553. # add_lib_html(string bkshlf)
  554. #
  555. #  create top-level (library) index.html file
  556. #
  557. sub add_lib_html {
  558.  
  559.    my($bkshlf) = @_;
  560.  
  561.    my($lib) = $bkshlf;
  562.    $lib =~ s/[^\/]+$//;
  563.    if ($lib eq '' || !(-d "$lib")) {
  564.        return;
  565.    }
  566.  
  567.    opendir(LIBDIR, "${lib}") || return;
  568.  
  569.    open(FLIBHTML, "> ${lib}/index.html") || return;
  570.    print FLIBHTML &do_html($_strs{'list_s'}), "\n<p><ul>\n";
  571.  
  572.    foreach (readdir(LIBDIR)) {
  573.  
  574.       if ($_ =~ /^\./
  575.           || !(-f "${lib}${_}/booklist.txt")
  576.           || !(-f "${lib}${_}/index.html")) {
  577.           next;
  578.       }
  579.       print FLIBHTML "<li><a href=\"${_}/index.html\"><b>",
  580.                      ($_strs{$_} ne '' ? $_strs{$_} : ${_}), "</b></a></li>\n";
  581.    }
  582.  
  583.    closedir(LIBDIR);
  584.  
  585.    print FLIBHTML "</ul>", $_strs{'html_ftr'};
  586.    close(FLIBHTML);
  587. }
  588.  
  589.  
  590.  
  591. #---------------------------------------
  592. # check_book(string bkshlf, string bk)
  593. #
  594. #  check to see if book is in old format
  595. #
  596. sub check_book {
  597.  
  598.    my($bkshlf, $bk) = @_;
  599.  
  600.    if ($bkshlf eq '' || $bk eq '' || !(-d "${bkshlf}/books/${bk}")) {
  601.        return 0;
  602.    }
  603.  
  604.    #--------------
  605.    # in new format
  606.    #
  607.    if (-d "${bkshlf}/books/${bk}/sgi_data"
  608.        &&
  609.        -f "${bkshlf}/books/${bk}/sgi_html/index.html") {
  610.        return 1;
  611.    }
  612.  
  613.    return 0;
  614. }
  615.  
  616.  
  617. #------------------------------------
  618. # check_pdf(string bkshlf, string bk)
  619. #
  620. #  check to see if book is in PDF
  621. #
  622. sub check_pdf {
  623.  
  624.    my($bkshlf, $bk) = @_;
  625.  
  626.    if ($bkshlf eq '' || $bk eq '' || !(-d "${bkshlf}/books/${bk}")) {
  627.        return 0;
  628.    }
  629.  
  630.    #--------------
  631.    # in PDF format
  632.    #
  633.    if (-d "${bkshlf}/books/${bk}/pdf"
  634.        &&
  635.        (-f "${bkshlf}/books/${bk}/pdf/${bk}.pdf" 
  636.         ||
  637.         -f "${bkshlf}/books/${bk}/${bk}.pdf")) {
  638.        return 1;
  639.    }
  640.  
  641.    return 0;
  642. }
  643.  
  644.  
  645.  
  646. #---------------------------------
  647. # clean_bookdir(string bk_dir, bk)
  648. #
  649. #  remove zero-length files/cruft
  650. #
  651. sub clean_bookdir {
  652.  
  653.    my($bk_dir, $bk) = @_;
  654.  
  655.    if ($bk_dir eq '' || !(-d "${bk_dir}")) {
  656.        return;
  657.    }
  658.  
  659.    my($s, $tmp)  = '';
  660.  
  661.    #----------------------
  662.    # remove 0-length files
  663.    #
  664.    foreach $s (split(/\n/, `(find ${bk_dir} -type f -size 0 -print)`)) {
  665.       unlink($s);     # ignore errors
  666.    }
  667.  
  668.    #-------------------------
  669.    # remove empty directories
  670.    # - use streamlined method
  671.    #
  672.    # @ents = split(/\n/, `(cd ${bk_dir}; find . -type d -print)`);
  673.    #
  674.    my(@ents) = ("${bk_dir}/ebt", "${bk_dir}/index", "${bk_dir}/styles");
  675.  
  676.    foreach $s (@ents) {
  677.       if (!(-e $s) || -l $s || !(-d $s)) {
  678.           next;       # ignore symlinks
  679.       }
  680.       rmdir($s);      # ignore errors
  681.    }
  682.  
  683.    if ($bk eq '') {
  684.        return;
  685.    }
  686.  
  687.    #------------------------------------------
  688.    # remove old infosearch files / ignore errs
  689.    #
  690.    if (-e "${bk_dir}/${bk}.inp") {
  691.       unlink("${bk_dir}/${bk}.inp");
  692.    }
  693.    if (-e "${bk_dir}/${bk}.html") {
  694.       unlink("${bk_dir}/${bk}.html");
  695.    }
  696.    if (-e "${bk_dir}/${bk}_help.html") {
  697.       unlink("${bk_dir}/${bk}_help.html");
  698.    }
  699.    if (-e "${bk_dir}/${bk}.books.wrd") {
  700.       unlink("${bk_dir}/${bk}.books.wrd");
  701.    }
  702.  
  703.    return;
  704. }
  705.  
  706.  
  707.  
  708. #--------------------
  709. # do_html(string ttl)
  710. #
  711. sub do_html {
  712.  
  713.    my($ttl) = @_;
  714.    my($s) = $_hdr;
  715.    $s =~ s/%TTL/$ttl/g;
  716.    return "$s";
  717. }
  718.  
  719.  
  720.  
  721. #----------------------
  722. # usage(string err_msg)
  723. #
  724. sub usage {
  725.  
  726.    my($err) = @_;
  727.  
  728.    print "\nusage: insightAdmin [-c] [-d] [-v] [-h] [ <bookshelf> ]\n",
  729.          "e.g. : insightAdmin ",
  730.          "/usr/share/Insight/library/SGI_bookshelves/SGI_EndUser\n\n",
  731.          "where: -c   correct my books (from old to new format)\n",
  732.          "       -d   use the network to connect to techpubs.sgi.com to try\n",
  733.          "            to download books during a -c(orrection) of books\n",
  734.          "       -v   verbose mode\n",
  735.          "       -h   print this usage message\n",
  736.          ($err ne '' ? "\n** insightAdmin ERROR:\n   ${err}\n\n" : '');
  737.  
  738.    exit(-1);
  739. }
  740.  
  741.  
  742.  
  743. __END__
  744.  
  745. <html>
  746.  <head>
  747.   <title>SGI Desktop Techpubs Library: %TTL</title>
  748.  </head>
  749.  
  750.  <body text="#000000" bgcolor="#f9f9f9">
  751.  
  752.  <table BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="100%">
  753.  <tr bgcolor="#003399"><td colspan="2"><font size="1"> </td></tr>
  754.  <tr bgcolor="#7C7F87">
  755.   <td valign="top" align="left"><p><br>
  756.   <font face="helvetica" color="#ffffff" size="+1"><b>
  757.      SGI Desktop Techpubs Library
  758.   </b></font><br> 
  759.   </p></td>
  760.   <td valign="center" align="right"><font face="helvetica" color="#ffffff"><b>
  761.   <a href="http://localhost/infosearch/"><font face="helvetica" color="#ffffff" style="text-decoration: none">infosearch</font></a>
  762.     |  
  763.   <a href="http://techpubs.sgi.com/"><font face="helvetica" color="#ffffff" style="text-decoration: none">techpubs.sgi.com</font></a>
  764.     
  765.   </b></font></td>
  766.  </tr>
  767.  <tr bgcolor="#003399"><td colspan="2"><font size="1"> </td></tr>
  768.  </table>
  769.  
  770.  <p>
  771.    <h3>SGI Desktop Techpubs Library: %TTL</h3>
  772.  </p>
  773.